home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / The Treasure Hunt / THFB.Dxr / 00063.ls < prev    next >
Encoding:
Text File  |  1994-09-16  |  441 b   |  22 lines
  1. on exitFrame
  2.   global text
  3.   if the soundBusy of 1 then
  4.     go(the frame)
  5.   else
  6.     puppetSound(0)
  7.     if chapter then
  8.       set the volume of sound 1 to 256
  9.       set the volume of sound 2 to 256
  10.       go("story" & text, "THAtitle")
  11.     else
  12.       if bedtime then
  13.         puppetSprite(4, 1)
  14.         puppetSprite(24, 1)
  15.         set bedtime to bedtime + 1
  16.         puppetTransition(23)
  17.         go("door")
  18.       end if
  19.     end if
  20.   end if
  21. end
  22.